home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 July / Ahoy_Magazine_85-07_1985_Double_L.d64 / vic music (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.4 KB  |  45 lines
  1. 1 rem "vic music"
  2. 10 md$="@":m1$=md$:m2$=md$:m3$=md$:gosub 9000
  3. 100 sys sr
  4. 190 end
  5. 9000 sr=828
  6. 9005 poke 170,50 :rem tempo
  7. 9006 poke 659,1  :rem attack
  8. 9007 poke 660,200:rem decay
  9. 9008 poke 661,15-0 :rem sustain volume
  10. 9009 poke 662,10 :rem release
  11. 9010 for i=663 to 676:read a:poke i,a:next
  12. 9011 data 166,169,169,5,133,171,198,171,208,252,202,208,245,96
  13. 9015 for i=677 to 682:read a:poke i,a:next
  14. 9016 data 202,234,234,208,251,96
  15. 9020 for i=684 to 767:read a:poke i,a:next
  16. 9025 data 32,151,2,136,208,250,96
  17. 9030 data 173,14,144,41,240,5,150,141,14,144,96
  18. 9035 data 160,15,230,150,32,179,2,174,147,2,32,165,2,136,208,242
  19. 9036 data 162,1 ,32,153,2
  20. 9037 data 172,149,2,198,150,32,179,2,174,148,2,32,165,2,136,208,242
  21. 9038 data 166,170,134,169,164,149,32,172,2
  22. 9039 data 164,150,240,14,198,150,32,179,2,174,150,2,32,165,2,136,208,242,96
  23. 9045 for i=sr to sr+89:read a:poke i,a:next
  24. 9050 data 169,0,133,150,133,147,160,2,177,45,133,148
  25. 9051 data 200,177,45,133,155,200,177,45,133,156
  26. 9052 data 160,10,177,45,133,158,200,177,45,133,159
  27. 9053 data 160,17,177,45,133,163,200,177,45,133,164
  28. 9054 data 160,24,177,45,133,167,200,177,45,133,168
  29. 9055 data 164,147,177,155,133,149
  30. 9056 data 177,158,141,10,144
  31. 9057 data 177,163,141,11,144
  32. 9058 data 177,167,141,12,144
  33. 9059 data 32,190,2,169,0,133,150,230,147,198,148,208,222,96
  34. 9100 sl=48:rem # of notes
  35. 9110 for i=1 to sl:read b:b=b+128:if b>255 then b=0
  36. 9115 m3$=m3$+chr$(b):next
  37. 9120 for i=1 to sl:m1$=m1$+chr$(0):next
  38. 9125 for i=1 to sl:md$=md$+chr$(25):next
  39. 9130 m2$=m1$
  40. 9200 data 87,81,79,67,67,47,67,67,79,67,79,87
  41. 9210 data 81,79,81,73,73,47,73,73,81,73,81,91
  42. 9220 data 87,81,79,67,67,47,67,67,79,67,79,87
  43. 9230 data 81,79,81,79,81,73,87,81,79,67,67,67
  44. 9990 return
  45.